home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / etch.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  424 b   |  16 lines
  1. 10 SCREEN 4:CLS
  2.  X=0:Y=0:OX=0:OY=0:m=1
  3.  PSET(X,Y),1
  4. 20 A$=INKEY$ : IF A$="" THEN 20
  5.  IF A$="e" THEN 10
  6.  IF A$="K" THEN X=X-1:if x<0 then x=0
  7.  IF A$="M" THEN X=X+1:if x>199 then x=199
  8.  IF A$="H" THEN Y=Y-1:if y<0 then y=0
  9.  IF A$="P" THEN Y=Y+1:if y>63 then y=63
  10.  IF A$="S" THEN M=-M
  11.  if a$="G" then x=0:y=0
  12.  IF A$=chr$(27) THEN SCREEN 7 : system
  13.  IF M<0 THEN PSET(OX,OY),0
  14.  PSET(X,Y),1 : OX=X : OY=Y
  15.  GOTO 20
  16. ə